home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
MAIL-UTI.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
3KB
|
36 lines
;;; compiled by jwz@thalidomide on Tue Jun 30 23:30:29 1992
;;; from file /cadillac-th/jwz/emacs19/lisp/utils/mail-utils.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(provide 'mail-utils)
(defvar mail-use-rfc822 nil "\
*If non-nil, use a full, hairy RFC822 parser on mail addresses.
Otherwise, (the default) use a smaller, somewhat faster and
often-correct parser.")
(fset 'mail-string-delete #[(string start end) "¼à ┬Oç ┬O ─OPç" [end string 0 start nil] 4 "\
Returns a string containing all of STRING except the part
from START (inclusive) to END (exclusive)."])
(fset 'mail-strip-quoted-names #[(address) "½ì┴┬!ê├─┼!╟#ç╚ ╩╦\"ê╠ò╩═╠ò#O╩╬\"½╣è╧╨!qê╤ êcê╥!ê╘bê╒╓╚╫#½ô╪uê┘╚xê`è┌╘!ê`)|ê¬f█ ╤ ê)¬û╩▄\"ë ½î▌ ╠ò#¬j╠ ╩▐ #ë ½úG╠òV½Å╠òH▀U½å╠ò ¬]▌ ╠ò#¬Q╩α\"ë ½ñ╘òßö╠ò\"#$▌\"S\"#▌$##+¬R)ç" [mail-use-rfc822 require rfc822 mapconcat identity rfc822-addresses address ", " nil pos string-match "\\`[ \n]*" 0 "[ \n]*\\'" "[ ]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*(" get-buffer-create " *temp*" erase-buffer set-syntax-table lisp-mode-syntax-table 1 search-forward "(" t -1 " " forward-sexp buffer-string "[ ]*(\\([^)\"\\]\\|\\\\.\\|\\\\\n\\)*)" mail-string-delete "[ ]*\"\\([^\"\\]\\|\\\\.\\|\\\\\n\\)*\"[ \n]*" 64 "\\(,\\|\\`\\)[^,]*<\\([^>,]*>\\)" 2 close junk-end junk-beg] 6 "\
Delete comments and quoted strings in an address list ADDRESS.
Also delete leading/trailing whitespace and replace FOO <BAR> with just BAR.
Return a modified address list."])
(byte-code "└┴!½â ¼é┬└ç" [boundp rmail-default-dont-reply-to-names "info-"] 2)
(fset 'rmail-dont-reply-to #[(userids) "¼æ ½à ┬P¬ü├─┼ !╞PP╟╚Q╔╩ë╧\"ë½⌐╤V½àT╧╥╤ò#½ä╤ò¬âG╙#¬L╧╘\"ë½ê╤O╧╒\"½ê╤ò╩O¬é,ç" [rmail-dont-reply-to-names rmail-default-dont-reply-to-names "\\|" "" regexp-quote user-original-login-name "\\>" "\\(^\\|,\\)[ \n]*\\([^,\n]*!\\|\\)\\(" "\\)" t nil epos pos case-fold-search match string-match userids 0 "[ \n,]+" mail-string-delete "[ , \n]*\\'" "\\s *"] 4 "\
Returns string of mail addresses USERIDS sans any recipients
that start with matches for rmail-dont-reply-to-names.
Usenet paths ending in an element that matches are removed also."])
(fset 'mail-fetch-field #[(field-name &optional last all) "èebê└┴┬!─Qebê½╖╚ ╩╦└#½í`═yê╬╧!¼x ë╚ÿ½â╚¬ü╨`S{Q )¬X ╚ÿ?¡é )¬ú╩╦└#¡£½ç╩╦└#¼y`═yê╬╧!¼x`S{)+ç" [t "^" regexp-quote field-name "[ ]*:[ ]*" name case-fold-search all "" value re-search-forward nil opoint 1 looking-at "[ ]" ", " last] 4 "\
Return the value of the header field FIELD.
The buffer is expected to be narrowed to just the headers of the message.
If 2nd arg LAST is non-nil, use the last such field if there are several.
If 3rd arg ALL is non-nil, concatenate all such fields, with commas between."])
(byte-code "└┴Mê┬├Mç" [mail-parse-comma-list #[nil "└ë├└wêm¼Ü`─└wê├└xê `{\nB─└wê┼└wê¬c\n*ç" [nil beg accumulated " " "^," ", "] 2] mail-comma-list-regexp #[(labels) "└┬├\"«ü┼ ┬╞ #O┬╟\"ë½Ä┼ O╚┼ò└OQ¬j)ç" [nil pos string-match "[^ ]" labels 0 "[ ]*$" "[ ]*,[ ]*" "\\|"] 6]] 2)